TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/NEW/N-New Submissions/(n)n2.d64/craps

Commodore BASIC | 2007-02-24 | 4KB | 184 lines

1 REM**REVISED CRAPS BY RICK ANDING**
2 REM****ATLANTA, GEORGIA*******
3 REM ENHANCED FROM A PROGRAM BY D.LIEN
4 REM **NOT TO BE RESOLD FOR PROFIT**
5 POKE 646,6:POKE 53280,7:POKE 53281,7
6 GOSUB 9000
7 POKE 53280,6:POKE 53281,6:POKE 646,15
8 PRINT"[147]":FOR X=1 TO 1000:NEXT:Q=1064:U=1103:GOSUB8000:FOR X=1 TO 1000:NEXT
9 PRINT:PRINT:PRINT:PRINT
10 INPUT "    DO YOU NEED THE RULES?  Y/N";A$
11 IF A$="N" OR A$="NO" GOTO 13
12 GOSUB 2000
13 FOR X=1 TO 1000:NEXT:Q=1384:U=1423:GOSUB 8000
14 PRINT:PRINT:PRINT:FORX=1 TO 1000:NEXT
15 PRINT:PRINT:PRINT:PRINT:INPUT "WOULD YOU LIKE TO PLAY CRAPS? Y/N ";A$
16 FOR X=1 TO 1000:NEXT:Q=1704:U=1743:GOSUB 8000
17 FOR X=1 TO 1000:NEXT:PRINT:IF A$="Y" OR A$="YES" GOTO 19
18 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT TAB(8)"WELL, HAVE A NICE DAY!":END
19 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"     PRESS SPACE BAR TO ROLL DICE"
21 GET Q$:IF Q$=""THEN GOTO21
22 IF Q$<>CHR$(32)THEN GOTO 21
24 H=2:R=0:J=2:K=0
25 Q=1984:U=2023:GOSUB 8000:FOR X=1 TO 600:NEXT
26 PRINT"[147]":GOSUB 150
27 REM*******DISPLAY STATIONARY DICE****
30 GOSUB 4000:P=N:PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
35 PRINT:PRINT:PRINT TAB(14)"  ";"";A;"[146][155] ";
36 PRINT "";B
37 PRINT TAB(14)"[150]  [166][166]  [166][166][155]"
38 PRINT TAB(14)"  [163][163]  [163][163]":FOR Z=1 TO 1000:NEXT:PRINT:PRINT"[155]"
40 PRINT "YOU ROLLED ";P;
50 ON P GOTO 60,89,89,70,70,70,75,70,70,70,75,89
60 REM*P CAN'T EQUAL 1
70 FOR X=1 TO 1000:NEXT:PRINT"     YOUR POINT IS ";N:GOTO 100
75 FOR X=1 TO 1200:NEXT
80 PRINT:PRINT:PRINT "               YOU WIN!!!":FOR X=1 TO 2000:NEXT
82 PRINT:PRINT:PRINT:INPUT"WANT TO TRY AGAIN?   Y/N";A$
85 GOTO 17
89 FOR X=1 TO 1200:NEXT:PRINT
90 PRINT:PRINT "             YOU LOSE!!!":FOR X=1 TO 2000:NEXT
92 PRINT:PRINT:PRINT:INPUT"WANT TO TRY AGAIN?   Y/N";A$
95 GOTO 17
100 FOR X=1TO 1400:NEXT:PRINT:PRINT:PRINT:PRINT"  PRESS SPACE BAR TO ROLL DICE"
101 GET Q$: IF Q$="" THEN GOTO101
102 IF Q$<>CHR$(32)THEN GOTO 101
104 FOR E=1 TO 600:NEXT:PRINT"[147]":GOSUB 150:H=2:R=0:J=2:K=0
105 GOSUB 4000:M=N:PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
106 PRINT:PRINT:PRINT TAB(14)"  ";"";A;"[146] ";
107 PRINT"";B
108 PRINT TAB(14)"[150]  [166][166] [160][166][166][155]"
109 PRINT TAB(14)"  [163][163]  [163][163]":FOR Z=1 TO 1000:NEXT:PRINT:PRINT:PRINT"[155]"
110 PRINT "YOU ROLLED ";M;:FOR Z=1 TO 1000:NEXT:PRINT"          YOU NEED ";P
120 IF M=P THEN 75
130 IF M=7 THEN 89
140 GOTO 100
150 GOSUB 1000:
155 A=X
160 GOSUB 1000
165 B=X
170 N=A+B
180 RETURN
1000 S=VAL(RIGHT$(TI$,2))
1005 FOR Z=1 TO S
1010 X=INT(RND(1)*6+1)
1030 NEXT Z
1040 RETURN
2000 FOR X=1 TO 2000:NEXT:PRINT"[147]":FOR X=1 TO 1000:NEXT
2005 PRINT"         RULES OF THE GAME"
2010 FOR X=1 TO 2000:NEXT:PRINT
2020 PRINT "THE PLAYER ROLLS TWO DICE."
2030 PRINT"IF HE ROLLS A SUM OF 2, CALLED 'SNAKE"
2040 PRINT "EYES', A 3, CALLED 'COCK EYES', OR A"
2050 PRINT "12, CALLED 'BOX CARS', HE LOSES.
2055 [153]"   THATS 'CRAPS'"
2060 [141] 3000
2070 [153]"IF THE PLAYER ROLLS A 7 OR 11 ON HIS "
2080 [153]"FIRST THROW, (CALLED A NATURAL), HE WINS"
2090 [153]"AND THE GAME IS OVER."
2100 [141] 3000
2110 [153]"IF ANY OTHER NUMBER IS ROLLED, IT'S "
2120 [153]"THE PLAYER'S 'POINT'.
2130 PRINT "HE MUST KEEP ROLLING UNTILL HE EITHER"
2140 PRINT "'MAKES HIS POINT' BY ROLLING THE SAME"
2150 PRINT"NUMBER AGAIN TO WIN, OR ROLLS A 7"
2160 PRINT"[160] AND LOSES."
2170 GOSUB 3000
2180 PRINT "IF YOU NOW UNDERSTAND THE RULES, "
2190 INPUT"WOULD YOU LIKE TO PLAY CRAPS?  Y/N ";A$
2195 FOR X=1 TO 1200:NEXT:PRINT"[147]"
2200 GOTO 17
3000 FOR X=1 TO 6000:NEXT
3010 PRINT:PRINT
3020 RETURN
3999 REM******DISPLAY ROLLING DICE******
4000 V=1:W=6:FOR L=1 TO 300:NEXT
4005 FOR Y=1 TO 6:PRINT"[155]"
4006 PRINT"[147]"
4008 R=R+2
4010 PRINT:PRINT:PRINT TAB(H)"  ";"  ";"[146]  ";
4015 PRINT "  "
4020 PRINT TAB(R)"[150]  [166][166]  [166][166][155]"
4030 PRINT TAB(R)"  [163][163]  [163][163]":FOR M=1 TO 4:NEXT M
4031 H=H+42
4032 PRINT"[147]"
4033 K=K+2
4035 PRINT:PRINT:PRINT TAB(J)"  [164][164]  [164][164]"
4036 PRINT TAB(K)"[150]  [166][166]  [166][166][155]"
4037 PRINT TAB(K)" ";"  ";"[146]  ";
4038 PRINT "  ":FOR M=1 TO 4:NEXT M
4039 J=J+42:V=V+1:W=W-1
4040 NEXT Y
4050 RETURN
8000 REM*****MULTICOLORED DOT LINES*****
8005 L=0
8010 FOR I=Q TO U
8020 POKE I,81
8040 POKE 54272+I,L
8050 L=L+1
8055 IF L=6 THEN L=7
8060 IF L=16 THEN L=0
8070 NEXT I
8075 RETURN
9000 REM*****ANDINGS NOODLE LEADER******
9002 PRINT"[147]":FOR X=1 TO 1000:NEXT
9005 FOR X=1 TO 39
9010 PRINT "[191]";
9015 FOR Y=1 TO 10:NEXT Y
9020 NEXT X
9030 FOR X=1 TO 22
9040 PRINT TAB(40)"[157][157][191]"
9050 FOR Y=1 TO 10:NEXT Y
9060 NEXT X
9070 FOR X=1 TO 39
9080 PRINT"[157][157][191]";
9090 FOR Y=1 TO 10:NEXTY
9095 NEXT X
9096 PRINT"[157][191][157]";
9100 FOR X=1 TO 21
9110 PRINT"[145][191][145]"
9120 FOR Y=1 TO 10:NEXT Y
9130 NEXT X
9140 FOR D=1 TO 350:NEXT
9160 PRINT TAB(204)"[191]";
9170 FOR X=1 TO 28
9175 PRINT"[191]";
9180 FOR Y=1 TO 10:NEXT Y
9190 NEXT X
9195 PRINT"[191]"
9200 PRINT TAB(33)"[191]"
9210 PRINT TAB(33)"[191]"
9220 PRINT TAB(33)"[191]"
9230 PRINT TAB(33)"[191]";
9240 FOR X=1 TO 30
9250 PRINT "[157][191][157]";
9255 FOR Y=1 TO 10:NEXT Y
9260 NEXT X
9270 FOR X=1 TO 3
9280 PRINT "[145][191][157]";
9290 FOR Y=1 TO 10:NEXT Y
9300 NEXT X
9305 FOR X=1 TO 350:NEXT
9310 PRINT TAB(46)" ANDING'S NOODLE PRESENTS"
9315 FOR X=1 TO 1000:NEXT
9320 PRINT TAB(252)" "
9325 DATA "R","E","V","I","S","E","D"," ","C","R","A","P","S"
9330 PRINT TAB(12)"*[157]";
9335 FOR J=1 TO 13
9340 FOR X=1 TO 12
9350 PRINT" *[157]";
9360 FOR Y=1 TO 5:NEXT Y
9370 NEXT X
9375 PRINT"[157]* [157]";
9380 FOR X=1 TO 11
9390 PRINT"[157][157]* [157]";
9400 FOR Y=1 TO 5:NEXT Y
9410 NEXT X
9415 READ A$
9416 PRINT"[157][145]";A$;:PRINT"";
9417 NEXT J
9418 FOR Y=1 TO 2000:NEXT:PRINT:PRINT:PRINT
9419 PRINT"[191]  RANDOM MECHANICS BY DAVID LIEN"
9420 FOR X=1 TO 4000:NEXT
9430 RETURN